home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / med300.zip / MESCRDEF.CLA < prev    next >
Text File  |  1994-02-22  |  2KB  |  44 lines
  1.  
  2. !▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  3. !█                                                                       █
  4. !█ MESCRDEF.CLA                                                          █
  5. !█ Initialize screen-related memo parameters with default values         █
  6. !█                                                                       █
  7. !█ Revision Number: 1                                                    █
  8. !█ Revision Date  : 22-Feb-94                                            █
  9. !█                                                                       █
  10. !█ Revision History                                                      █
  11. !█   1 Created                                                           █
  12. !█                                                                       █
  13. !▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  14.  
  15.              MEMBER('MEMOEDIT')
  16.  
  17. !═════════════════════════════════════════════════════════════════════════
  18. !      Initialize screen-related memo parameters with default values
  19. !═════════════════════════════════════════════════════════════════════════
  20. ME_ScrnDefs  PROCEDURE( ubRow, ubCol, ubRows, ubCols )
  21.  
  22.   CODE
  23.   MED:ubWndRowOfs  = ubRow - 1                   ! Edit window row offset
  24.   MED:ubWndColOfs  = ubCol - 1                   ! Edit window column offset
  25.   MED:ubWndRows    = ubRows                      ! Edit window rows
  26.   MED:ubWndCols    = ubCols                      ! Edit window columns
  27.   MED:usLineWidth  = ubCols + 1                  ! Edit line width
  28.  
  29.   MED:ubTextColor  = COLOR(ubRow, ubCol)         ! Text color
  30.   MED:ubSymColor   = 1FH                         ! Format code color
  31.   MED:ubBlockColor = 2FH                         ! Block marking color
  32.  
  33.   MED:bbInsertMode = 1                           ! Insert mode on
  34.  
  35.   MED:isBlockBegin = -1                          ! Start of marked text block
  36.   MED:isBlockEnd   = -1                          ! End of marked text block
  37.  
  38.   MED:usPosition = 0                             ! Set to first character
  39.  
  40.   MED:usPageTop  = 0                             ! Reset display page
  41.   MED:isSkew     = 0                             !
  42.   RETURN                                         !
  43.  
  44.